home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / oct95 / chalf103.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  24.4 KB  |  653x532  |  4-bit (15 colors)
   ocr: Paradox. for Windows File Edit View Search Program Properties Tools Window Help 1 4 to 100101 to UILISE-Lbratyl-Uses Uses ObjectPAL ncolumnsum (var tctmp icursor, aFld String) Number endUses method ncolumnsum (var tctmp TCursor, aFld String) Number returnlibutil2.ncolumnsun(tcTmp, aFld) endMethod - OTILZLSL-ALbrarylznColumnsum" method ncolumnsum(uar tctmp iCursor, aFld string) Number var nurandiotal number enduar scan tctmp : try nurandiotal = nurandiotal + ccimp.(arld) onFail msgInfoc"Error", "Cannot calculate sum") nurandlotal.Dlank() quitLoop endtry endScan return(GrandTotal) endmethod Proj ...